/ Aminet 1 / Aminet - June 1993 [Walnut Creek].iso / ab20 / utilitys / editors / emacs185.lha / emacs / lisp / amiga-menu.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 76 61 72 | 20 61 6d 69 67 61 2d 6d |.(defvar| amiga-m|
|00000010| 65 6e 75 73 2d 64 65 73 | 63 72 69 70 74 69 6f 6e |enus-des|cription|
|00000020| 20 6e 69 6c 20 22 5c 0a | 56 61 72 69 61 62 6c 65 | nil "\.|Variable|
|00000030| 20 63 6f 6e 74 61 69 6e | 69 6e 67 20 74 68 65 20 | contain|ing the |
|00000040| 6d 65 6e 75 73 20 73 65 | 74 75 70 20 66 6f 72 20 |menus se|tup for |
|00000050| 45 6d 61 63 73 22 29 0a | 0a 28 64 65 66 75 6e 20 |Emacs").|.(defun |
|00000060| 61 6d 69 67 61 2d 6d 65 | 6e 75 73 2d 73 65 74 20 |amiga-me|nus-set |
|00000070| 28 6d 65 6e 75 73 29 20 | 22 5c 0a 53 65 74 75 70 |(menus) |"\.Setup|
|00000080| 20 6d 65 6e 75 73 20 66 | 6f 72 20 65 6d 61 63 73 | menus f|or emacs|
|00000090| 20 28 70 61 72 61 6d 65 | 74 65 72 20 61 73 20 66 | (parame|ter as f|
|000000a0| 6f 72 20 61 6d 69 67 61 | 2d 6d 65 6e 75 73 29 22 |or amiga|-menus)"|
|000000b0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c4 08 09 | (byte-c|ode "...|
|000000c0| c5 23 88 0b 89 12 88 c6 | 0b 21 87 22 20 5b 6d 6f |.#......|.!." [mo|
|000000d0| 75 73 65 2d 6d 61 70 20 | 61 6d 69 67 61 2d 62 75 |use-map |amiga-bu|
|000000e0| 74 74 6f 6e 2d 72 69 67 | 68 74 2d 75 70 20 61 6d |tton-rig|ht-up am|
|000000f0| 69 67 61 2d 6d 65 6e 75 | 73 2d 64 65 73 63 72 69 |iga-menu|s-descri|
|00000100| 70 74 69 6f 6e 20 6d 65 | 6e 75 73 20 64 65 66 69 |ption me|nus defi|
|00000110| 6e 65 2d 6b 65 79 20 61 | 6d 69 67 61 2d 6d 65 6e |ne-key a|miga-men|
|00000120| 75 73 2d 64 69 73 70 61 | 74 63 68 20 61 6d 69 67 |us-dispa|tch amig|
|00000130| 61 2d 6d 65 6e 75 73 5d | 20 34 29 29 0a 0a 28 64 |a-menus]| 4))..(d|
|00000140| 65 66 75 6e 20 61 6d 69 | 67 61 2d 6d 65 6e 75 73 |efun ami|ga-menus|
|00000150| 2d 64 69 73 70 61 74 63 | 68 20 28 73 65 6c 65 63 |-dispatc|h (selec|
|00000160| 74 69 6f 6e 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tion) (b|yte-code|
|00000170| 20 22 09 40 09 41 40 1a | 18 c4 0a 08 0b 38 41 40 | ".@.A@.|.....8A@|
|00000180| 38 41 40 21 2a 87 22 20 | 5b 6d 65 6e 75 20 73 65 |8A@!*." |[menu se|
|00000190| 6c 65 63 74 69 6f 6e 20 | 69 74 65 6d 20 61 6d 69 |lection |item ami|
|000001a0| 67 61 2d 6d 65 6e 75 73 | 2d 64 65 73 63 72 69 70 |ga-menus|-descrip|
|000001b0| 74 69 6f 6e 20 65 76 61 | 6c 5d 20 34 29 29 0a 0a |tion eva|l] 4))..|
|000001c0| 28 64 65 66 75 6e 20 6d | 61 6b 65 2d 65 78 70 6c |(defun m|ake-expl|
|000001d0| 69 63 69 74 2d 73 74 72 | 69 6e 67 20 28 73 74 72 |icit-str|ing (str|
|000001e0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 47 |) (byte-|code ".G|
|000001f0| c1 59 85 16 00 c2 08 c3 | 5c 22 c4 55 85 16 00 c2 |.Y......|\".U....|
|00000200| 08 c5 5c 22 c6 57 83 2b | 00 c7 c8 c6 c2 08 c5 5c |..\".W.+|.......\|
|00000210| 22 5c 5c 21 08 c1 c9 4f | 50 21 82 2e 00 c7 08 21 |"\\!...O|P!.....!|
|00000220| 87 22 20 5b 73 74 72 20 | 32 20 65 6c 74 20 30 20 |." [str |2 elt 0 |
|00000230| 32 37 20 31 20 31 32 38 | 20 6b 65 79 2d 64 65 73 |27 1 128| key-des|
|00000240| 63 72 69 70 74 69 6f 6e | 20 63 68 61 72 2d 74 6f |cription| char-to|
|00000250| 2d 73 74 72 69 6e 67 20 | 6e 69 6c 5d 20 39 29 29 |-string |nil] 9))|
|00000260| 0a 0a 28 64 65 66 75 6e | 20 6d 61 6b 65 2d 63 6f |..(defun| make-co|
|00000270| 6d 6d 61 6e 64 2d 6e 61 | 6d 65 20 28 63 6f 6d 6d |mmand-na|me (comm|
|00000280| 61 6e 64 20 73 74 72 20 | 77 69 64 74 68 29 20 28 |and str |width) (|
|00000290| 62 79 74 65 2d 63 6f 64 | 65 20 22 c7 09 c2 c3 23 |byte-cod|e "....#|
|000002a0| 0d 83 0d 00 0d 82 10 00 | c8 09 21 1c 18 08 83 24 |........|..!....$|
|000002b0| 00 c9 c9 ca 0e 06 5c 22 | 0c cb 08 21 23 82 25 00 |......\"|...!#.%.|
|000002c0| 0c 2a 87 22 20 5b 6b 65 | 79 73 20 63 6f 6d 6d 61 |.*." [ke|ys comma|
|000002d0| 6e 64 20 6e 69 6c 20 74 | 20 73 74 72 69 6e 67 20 |nd nil t| string |
|000002e0| 73 74 72 20 77 69 64 74 | 68 20 77 68 65 72 65 2d |str widt|h where-|
|000002f0| 69 73 2d 69 6e 74 65 72 | 6e 61 6c 20 73 79 6d 62 |is-inter|nal symb|
|00000300| 6f 6c 2d 6e 61 6d 65 20 | 66 6f 72 6d 61 74 20 22 |ol-name |format "|
|00000310| 25 25 2d 25 64 73 25 25 | 73 22 20 6d 61 6b 65 2d |%%-%ds%%|s" make-|
|00000320| 65 78 70 6c 69 63 69 74 | 2d 73 74 72 69 6e 67 5d |explicit|-string]|
|00000330| 20 38 29 29 0a 0a 28 64 | 65 66 75 6e 20 6d 65 6e | 8))..(d|efun men|
|00000340| 75 2d 69 74 65 6d 73 20 | 28 63 6f 6d 6d 61 6e 64 |u-items |(command|
|00000350| 73 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c3 |s) (byte|-code ".|
|00000360| 18 c4 c5 0a 5c 22 19 c4 | c6 0a 5c 22 2a 87 22 20 |....\"..|..\"*." |
|00000370| 5b 77 69 64 74 68 20 6e | 61 6d 65 73 20 63 6f 6d |[width n|ames com|
|00000380| 6d 61 6e 64 73 20 30 20 | 6d 61 70 63 61 72 20 28 |mands 0 |mapcar (|
|00000390| 6c 61 6d 62 64 61 20 28 | 63 6d 64 29 20 28 62 79 |lambda (|cmd) (by|
|000003a0| 74 65 2d 63 6f 64 65 20 | 22 08 85 21 00 08 39 83 |te-code |"..!..9.|
|000003b0| 0f 00 c4 08 21 82 11 00 | 08 40 19 09 47 1a 0a 0b |....!...|.@..G...|
|000003c0| 56 85 1e 00 0a 89 13 88 | 09 2a 87 22 20 5b 63 6d |V.......|.*." [cm|
|000003d0| 64 20 6e 61 6d 65 20 6c | 65 6e 20 77 69 64 74 68 |d name l|en width|
|000003e0| 20 73 79 6d 62 6f 6c 2d | 6e 61 6d 65 5d 20 33 29 | symbol-|name] 3)|
|000003f0| 29 20 28 6c 61 6d 62 64 | 61 20 28 63 6d 64 29 20 |) (lambd|a (cmd) |
|00000400| 28 62 79 74 65 2d 63 6f | 64 65 20 22 09 40 18 09 |(byte-co|de ".@..|
|00000410| 41 89 11 88 0a 85 2b 00 | 0a 39 83 15 00 0a 82 18 |A.....+.|.9......|
|00000420| 00 0a 41 40 1b c5 0b 08 | 0c c6 5c 5c 23 c7 c8 0b |..A@....|..\\#...|
|00000430| 44 44 0a 41 41 40 45 29 | 29 87 22 20 5b 6e 61 6d |DD.AA@E)|)." [nam|
|00000440| 65 20 6e 61 6d 65 73 20 | 63 6d 64 20 63 6f 6d 6d |e names |cmd comm|
|00000450| 61 6e 64 20 77 69 64 74 | 68 20 6d 61 6b 65 2d 63 |and widt|h make-c|
|00000460| 6f 6d 6d 61 6e 64 2d 6e | 61 6d 65 20 32 20 63 61 |ommand-n|ame 2 ca|
|00000470| 6c 6c 2d 69 6e 74 65 72 | 61 63 74 69 76 65 6c 79 |ll-inter|actively|
|00000480| 20 71 75 6f 74 65 5d 20 | 35 29 29 5d 20 34 29 29 | quote] |5))] 4))|
|00000490| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+